home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / maguire / lander / lander.dir < prev   
File List  |  1990-05-14  |  4KB  |  125 lines
  1. %%HP: T(1)A(D)F(.);
  2. DIR
  3.   BKRND
  4. GROB 131 64 00002000000020000000000000000000000800000000000000000000000000000000100000001000000080000000800000000000000000000000000000000000000000000002080000000040000108000E3000080000000000001000000000000081D01000000000000000000000000000004011000000000000000000000000000000202200000000000000000002000000200010C50000000202008010000000000000001F06000000000004000000008000000048C0780000000000000000000000400000082088004000000000000004000000000008208800000000000000000000000000000820880000000000000000000080080000084078000000000000000000000000004000990402000000400000400000000000000011140000000000000000000000000000002122000000800000000000000000000800422100000000008000002000000000000085D00008000000000000008000202000000E300020000000000000000000000000000000000000000100400000000000000000004080000000000000000000000000400100000000000000000000000080000000000000000000010000000000000000000000000000000000000000008000000000000000000000000000F10000008F10000000008F70040800000F0E108000706000F70000708300000000F00060100800800C08100800040000000C000081000400010300620400089080008300000600030002D00080020000200000E000000810800002300003010000C0000010000C006040000C00000C80000003000000000210813000080000005000000C0040000081200E10000030000020000000700000004040060000004000001000000083000000204001000000800008000000000C0000003080010000000300E7000000000030000010018000000004081000000000000000080002600000000804000000000000000004000A100000000012000000000000000004000400000000001100000000000000000200080000000000210000000000000008F100080000000000C000000000000000040000001000000000400000000000000002000000200000000020000000000000000100000020000000002000000000000000800000004000000000100000000000000040000000800000000800000000000000002000000001000000080000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF700000000000000000000000000000000000C5D5000000000000000000007129EE0000445400000000000000000000515B240000C5D500000000000000000000717FE40000445400000000000000000000115D2400004CDD300000000000000000001759E40000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  5.   CFUEL
  6. GROB 8 3 000000
  7.   CST { PLAY QUIT }
  8.   FUEL
  9. GROB 74 3 FFFFFFFFFFFFFFFFFF30FFFFFFFFFFFFFFFFFF30FFFFFFFFFFFFFFFFFF30
  10.   GETS
  11.     ½
  12.       IF KEY
  13.       THEN { (0,0)
  14. (0,.6) (0,-.6)
  15. (-.75,0) (.75,0) }
  16. { 25 35 34 36 } ROT
  17. POS 1 + GET
  18.       ELSE (0,0)
  19.       END GV +
  20. 'DXY' STO+ DXY 'XY'
  21. STO+ XY
  22.     ╗
  23.   GOVR
  24.     ½ 220 1 BEEP
  25. "Game Over" MSSG
  26.     ╗
  27.   IMPRG
  28.     ½ WORK RCLF ì
  29. fgs
  30.       ½ -40 CF -55
  31. CF CLLCD
  32. "        LANDER" 4
  33. DISP
  34.         DO 1 MENU
  35. CST
  36.           WHILE -1
  37. WAIT IP 10 - DUP2
  38. SWAP SIZE >
  39.           REPEAT
  40. DROP 340 .07 BEEP
  41.           END GET
  42. DUP EVAL
  43.         UNTIL { End
  44. EXIT QUIT } SWAP
  45. POS
  46.         END fgs
  47. STOF
  48.       ╗
  49.     ╗
  50.   INT
  51.     ½ (0,0) 'DXY'
  52. STO (65,63) 'XY'
  53. STO FL 'FM' STO
  54. 'RD' 1 STO+ BKRND
  55. 123 RAND * IP 17
  56. RìC DUP (0,1) +
  57. 'PLOC' STO LPAD
  58. REPL (0,4) FUEL {
  59. # 0d # 0d } FL RE
  60. RìB # 3d 2 ìLIST
  61. SUB REPL (106,4) RD
  62. ìSTR 1 ìGROB REPL
  63. PICT { # 0d # 0d }
  64. ROT REPL 'FL' (2,0)
  65. STO- GV DUP SIGN
  66. SWAP ABS .04 + .4
  67. MIN * 'GV' STO {
  68. # 0d # 0d } PVIEW
  69.     ╗
  70.   LAND
  71.     ½ 660 880
  72.       FOR i i .05
  73. BEEP 10
  74.       STEP 1 WAIT
  75. MAIN
  76.     ╗
  77.   LPAD
  78. GROB 7 6 94F7E3C1E3F7
  79.   MAIN
  80.     ½ INT PICT RCL
  81. { # 0d # 0d } {
  82. # 131d # 50d } SUB
  83. SHIP
  84.       IFERR
  85.         DO 'FM' 1
  86. STO- PICT FM CFUEL
  87. REPL DUP2 GETS SWAP
  88. GOR PICT { # 0d
  89. # 0d } ROT REPL
  90.         UNTIL XY
  91. CìPX PXìC PLOC SAME
  92.         END LAND
  93.       THEN GOVR
  94. DROP2
  95.       END
  96.     ╗
  97.   MSSG
  98.     ½ PICT { # 38d
  99. # 25d } ROT 3 ìGROB
  100. REPL 3 FREEZE 2
  101. WAIT
  102.       WHILE KEY
  103.       REPEAT
  104.       END
  105.     ╗
  106.   PLAY
  107.     ½ 1 MENU # 131d
  108. # 64d PDIM 0 130
  109. XRNG 0 63 YRNG
  110. (74,4) 'FL' STO
  111. (0,-.03) 'GV' STO 0
  112. 'RD' STO MAIN
  113.     ╗
  114.   QUIT
  115.     ½ WORK CLVAR
  116. LANDERDIR UPDIR 2
  117. MENU
  118.     ╗
  119.   SHIP
  120. GROB 7 11 80C1C1E3E3F7F7F7B69414
  121.   WORK
  122.     DIR
  123.     END
  124. END
  125.